home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / lib / perl / 5.10.0 / syslimits.ph < prev    next >
Text File  |  2009-10-01  |  454b  |  17 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings qw(redefine misc);
  4.  
  5. unless(defined(&_GCC_NEXT_LIMITS_H)) {
  6.     sub _GCC_NEXT_LIMITS_H () {    1;}
  7. }
  8. eval {
  9.     my(@REM);
  10.     my(%INCD) = map { $INC{$_} => 1 } (grep { $_ eq "limits.ph" } keys(%INC));
  11.     @REM = map { "$_/limits.ph" } (grep { not exists($INCD{"$_/limits.ph"}) and -f "$_/limits.ph" } @INC);
  12.     require "$REM[0]" if @REM;
  13. };
  14. warn($@) if $@;
  15. undef(&_GCC_NEXT_LIMITS_H) if defined(&_GCC_NEXT_LIMITS_H);
  16. 1;
  17.